object Form2: TForm2 Left = 180 Top = 93 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'BioTray by Fiens' ClientHeight = 283 ClientWidth = 349 Color = clSilver Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop Icon.Data = {} KeyPreview = True Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Label21: TLabel Left = 0 Top = 322 Width = 641 Height = 14 AutoSize = False Caption = ' ' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label22: TLabel Left = 21 Top = 362 Width = 206 Height = 19 AutoSize = False Caption = 'Best :' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False ShowAccelChar = False Transparent = True end object Label23: TLabel Left = 21 Top = 376 Width = 208 Height = 19 AutoSize = False Caption = 'Worst :' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label24: TLabel Left = 229 Top = 362 Width = 208 Height = 19 AutoSize = False Caption = 'Best :' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label25: TLabel Left = 231 Top = 376 Width = 206 Height = 19 AutoSize = False Caption = 'Worst :' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label26: TLabel Left = 437 Top = 362 Width = 196 Height = 19 AutoSize = False Caption = 'Best :' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label27: TLabel Left = 437 Top = 376 Width = 196 Height = 19 AutoSize = False Caption = 'Worst :' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label28: TLabel Left = 11 Top = 342 Width = 188 Height = 19 AutoSize = False Caption = 'Critical Emotional Days' Font.Color = clRed Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsUnderline] ParentFont = False Transparent = True end object Label30: TLabel Left = 441 Top = 342 Width = 192 Height = 19 AutoSize = False Caption = 'Critical Physical Days' Font.Color = clLime Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsUnderline] ParentFont = False Transparent = True end object Label32: TLabel Left = 5 Top = 45 Width = 22 Height = 17 Alignment = taRightJustify AutoSize = False Caption = '100' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label33: TLabel Left = 5 Top = 231 Width = 22 Height = 17 Alignment = taRightJustify AutoSize = False Caption = '0' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label34: TLabel Left = 5 Top = 60 Width = 22 Height = 17 Alignment = taRightJustify AutoSize = False Caption = '90' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label35: TLabel Left = 5 Top = 79 Width = 22 Height = 17 Alignment = taRightJustify AutoSize = False Caption = '80' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label36: TLabel Left = 5 Top = 98 Width = 22 Height = 17 Alignment = taRightJustify AutoSize = False Caption = '70' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label37: TLabel Left = 5 Top = 117 Width = 22 Height = 17 Alignment = taRightJustify AutoSize = False Caption = '60' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label38: TLabel Left = 5 Top = 136 Width = 22 Height = 17 Alignment = taRightJustify AutoSize = False Caption = '50' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label39: TLabel Left = 5 Top = 27 Width = 22 Height = 17 Alignment = taRightJustify AutoSize = False Caption = '%' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label40: TLabel Left = 5 Top = 155 Width = 22 Height = 17 Alignment = taRightJustify AutoSize = False Caption = '40' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label41: TLabel Left = 5 Top = 174 Width = 22 Height = 17 Alignment = taRightJustify AutoSize = False Caption = '30' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label42: TLabel Left = 5 Top = 193 Width = 22 Height = 17 Alignment = taRightJustify AutoSize = False Caption = '20' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Visible = False end object Label43: TLabel Left = 5 Top = 212 Width = 22 Height = 17 Alignment = taRightJustify AutoSize = False Caption = '10' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Visible = False end object Label31: TLabel Left = 8 Top = 0 Width = 629 Height = 29 Alignment = taCenter AutoSize = False Caption = 'Hello, here is your power for this month...' Font.Color = clBlack Font.Height = -24 Font.Name = 'Times New Roman' Font.Style = [fsUnderline] ParentFont = False Visible = False end object Label20: TLabel Left = 0 Top = 306 Width = 637 Height = 14 AutoSize = False Caption = ' ' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label29: TLabel Left = 233 Top = 342 Width = 206 Height = 19 AutoSize = False Caption = 'Critical Intellectual Days' Font.Color = clYellow Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsUnderline] ParentFont = False Transparent = True end object Label44: TLabel Left = 2 Top = 28 Width = 639 Height = 14 AutoSize = False Caption = ' ' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Visible = False end object Label55: TLabel Left = 28 Top = 404 Width = 171 Height = 16 Caption = 'UNREGISTERED VERSION' Font.Color = clRed Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label56: TLabel Left = 430 Top = 404 Width = 198 Height = 16 Caption = 'You see only the first month of life.' Font.Color = clRed Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label63: TLabel Left = 23 Top = 304 Width = 206 Height = 19 AutoSize = False Caption = 'Best :' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False ShowAccelChar = False Transparent = True Visible = False end object Label64: TLabel Left = 23 Top = 318 Width = 208 Height = 19 AutoSize = False Caption = 'Worst :' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True Visible = False end object Label65: TLabel Left = 231 Top = 304 Width = 208 Height = 19 AutoSize = False Caption = 'Best :' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True Visible = False end object Label66: TLabel Left = 233 Top = 318 Width = 206 Height = 19 AutoSize = False Caption = 'Worst :' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True Visible = False end object Label67: TLabel Left = 439 Top = 304 Width = 196 Height = 19 AutoSize = False Caption = 'Best :' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True Visible = False end object Label68: TLabel Left = 439 Top = 318 Width = 196 Height = 19 AutoSize = False Caption = 'Worst :' Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True Visible = False end object Label69: TLabel Left = 13 Top = 284 Width = 188 Height = 19 AutoSize = False Caption = 'Critical Emotional Days' Font.Color = clFuchsia Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsUnderline] ParentFont = False Transparent = True Visible = False end object Label70: TLabel Left = 443 Top = 284 Width = 192 Height = 19 AutoSize = False Caption = 'Critical Physical Days' Font.Color = clGreen Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsUnderline] ParentFont = False Transparent = True Visible = False end object Label71: TLabel Left = 235 Top = 284 Width = 206 Height = 19 AutoSize = False Caption = 'Critical Intellectual Days' Font.Color = clWhite Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsUnderline] ParentFont = False Transparent = True Visible = False end object TabbedNotebook1: TTabbedNotebook Left = 0 Top = 0 Width = 349 Height = 249 Hint = 'Click on one of the tab to choose a other menu...' TabFont.Color = clBtnText TabFont.Height = -12 TabFont.Name = 'MS Sans Serif' TabFont.Style = [] ParentShowHint = False ShowHint = False TabOrder = 0 object TTabPage Left = 4 Top = 24 Caption = 'Your Power' object Image1: TImage Left = -8 Top = -2 Width = 357 Height = 233 Picture.Data = {} Stretch = True end object Label9: TLabel Left = 2 Top = 6 Width = 339 Height = 19 Alignment = taCenter AutoSize = False Color = clBlue Font.Color = clWhite Font.Height = -17 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label1: TLabel Left = 18 Top = 28 Width = 88 Height = 23 Caption = 'Emotional' Font.Color = clRed Font.Height = -21 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label2: TLabel Left = 129 Top = 28 Width = 93 Height = 23 Caption = 'Intellectual' Font.Color = clYellow Font.Height = -21 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label3: TLabel Left = 239 Top = 28 Width = 74 Height = 23 Caption = 'Physical ' Font.Color = clLime Font.Height = -21 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object NeatoMeter1: TNeatoMeter Left = 28 Top = 52 Width = 75 Height = 157 Hint = 'Here you see your percent of Emotional Power...' BackColor = clSilver BorderStyle = bsSingle Completed = 0 Font.Color = clBlack Font.Height = -24 Font.Name = 'Times New Roman' Font.Style = [] ForeColor = clRed ParentFont = False ParentShowHint = False Percent = 0 ShowHint = True BevelDepth = 2 Direction = mdBottomToTop UseFontColor = True end object NeatoMeter2: TNeatoMeter Left = 134 Top = 52 Width = 75 Height = 157 Hint = 'There you see your percent of Intellectual Power...' BackColor = clSilver BorderStyle = bsSingle Completed = 0 Font.Color = clBlack Font.Height = -24 Font.Name = 'Times New Roman' Font.Style = [] ForeColor = clYellow ParentFont = False ParentShowHint = False Percent = 0 ShowHint = True BevelDepth = 2 Direction = mdBottomToTop UseFontColor = True end object NeatoMeter3: TNeatoMeter Left = 238 Top = 52 Width = 75 Height = 157 Hint = 'Here you see your percent of Physical Power...' BackColor = clSilver BorderStyle = bsSingle Completed = 0 Font.Color = clBlack Font.Height = -24 Font.Name = 'Times New Roman' Font.Style = [] ForeColor = clLime ParentFont = False ParentShowHint = False Percent = 0 ShowHint = True BevelDepth = 2 Direction = mdBottomToTop UseFontColor = True end end object TTabPage Left = 4 Top = 24 Caption = 'Details' object Image6: TImage Left = 0 Top = -2 Width = 353 Height = 221 Picture.Data = {} Stretch = True end object Label50: TLabel Left = 36 Top = 6 Width = 269 Height = 107 AutoSize = False Caption = 'Note the first day of your projection.' Font.Color = clBlack Font.Height = -37 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True Visible = False end object Label51: TLabel Left = 38 Top = 4 Width = 269 Height = 107 AutoSize = False Caption = 'Note the first day of your projection.' Font.Color = clWhite Font.Height = -37 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True Visible = False end object Memo1: TMemo Left = 36 Top = 22 Width = 269 Height = 153 Alignment = taCenter Color = clRed Font.Color = clBlack Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] Lines.Strings = ( 'Sorry but you dont have yet ' 'registered BioTray.' '' 'With the registered version, you ' 'could have lots ' 'of interesting informations.' '' 'You will see a calendar ' 'displaying ' 'the curves of ' 'your biorhythm day by day.' '' 'The best and critical days will ' 'flash.' '' 'You could also compare' 'your biorhythm with others.' '' 'You can also print your ' 'curves...' '' 'And much more.' '' 'Please register now,' 'it'#39's good for you...' '(and for us).') ParentFont = False ScrollBars = ssVertical TabOrder = 0 end object MaskEdit2: TMaskEdit Left = 128 Top = 134 Width = 91 Height = 32 Hint = 'Note here the begining of your curve...' EditMask = '!99/99/00;1;_' Font.Color = clBlack Font.Height = -21 Font.Name = 'Arial' Font.Style = [] MaxLength = 8 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 Text = '01/01/01' Visible = False end object BitBtn7: TBitBtn Left = 30 Top = 184 Width = 281 Height = 29 Hint = 'Click here to see your power at the begining...' Caption = 'Show me the Biorhythm of the first month of my life' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = BitBtn7Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555 555555555555F55555555505555B0555570555F55557F55555F55B50555B0555 7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B 55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00 55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0 BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55 55555555577777555555555705BBB55505555555F5777555F555557B5555055B 505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555 5B5557555557F55557555555555B5555555555555557555555550000} NumGlyphs = 2 end object BitBtn8: TBitBtn Left = 34 Top = 186 Width = 129 Height = 25 Hint = 'Click here to see your next power...' Caption = 'Show Me' ParentShowHint = False ShowHint = True TabOrder = 3 Visible = False OnClick = BitBtn8Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555 555555555555F55555555505555B0555570555F55557F55555F55B50555B0555 7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B 55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00 55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0 BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55 55555555577777555555555705BBB55505555555F5777555F555557B5555055B 505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555 5B5557555557F55557555555555B5555555555555557555555550000} NumGlyphs = 2 Spacing = 15 end object BitBtn10: TBitBtn Left = 178 Top = 186 Width = 127 Height = 25 Hint = 'Click here to compare 2 Biorhythms...' Caption = 'Compare Us' ParentShowHint = False ShowHint = True TabOrder = 4 Visible = False OnClick = BitBtn10Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555 555555555555F55555555505555B0555570555F55557F55555F55B50555B0555 7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B 55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00 55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0 BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55 55555555577777555555555705BBB55505555555F5777555F555557B5555055B 505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555 5B5557555557F55557555555555B5555555555555557555555550000} NumGlyphs = 2 Spacing = 15 end end object TTabPage Left = 4 Top = 24 Caption = 'Setup' object Image2: TImage Left = -14 Top = -20 Width = 355 Height = 239 Picture.Data = {} Stretch = True end object Label4: TLabel Left = 28 Top = 4 Width = 285 Height = 31 Alignment = taCenter Caption = 'Note here your first name ' Font.Color = clBlack Font.Height = -27 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label5: TLabel Left = 38 Top = 96 Width = 292 Height = 31 Caption = 'and there your birthdate... ' Font.Color = clBlack Font.Height = -27 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label52: TLabel Left = 40 Top = 98 Width = 292 Height = 31 Caption = 'and there your birthdate... ' Font.Color = clWhite Font.Height = -27 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label53: TLabel Left = 30 Top = 6 Width = 285 Height = 31 Alignment = taCenter Caption = 'Note here your first name ' Font.Color = clWhite Font.Height = -27 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object BitBtn1: TBitBtn Left = 112 Top = 182 Width = 129 Height = 29 Hint = 'Click here if all is OK' Caption = 'OK' Default = True ModalResult = 6 ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = BitBtn1Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333 333333333337FF3333333333330003333333333333777F333333333333080333 3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB 33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB 3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333 333333333337F33333333333333B3333333333333337333333330000} NumGlyphs = 2 Spacing = 30 end object Edit1: TEdit Left = 164 Top = 44 Width = 167 Height = 40 Hint = 'Note here your first name...' Font.Color = clBlack Font.Height = -27 Font.Name = 'Arial' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 Text = 'First Name' OnExit = Edit1Exit end object MaskEdit1: TMaskEdit Left = 82 Top = 134 Width = 117 Height = 40 Hint = 'Note here your birthday..' EditMask = '!99/99/00;1;_' Font.Color = clBlack Font.Height = -27 Font.Name = 'Arial' Font.Style = [] MaxLength = 8 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 Text = '01/01/01' end end object TTabPage Left = 4 Top = 24 Caption = 'What is Biorhythm ?' object Memo2: TMemo Left = 4 Top = 2 Width = 331 Height = 213 Alignment = taCenter Color = clWhite Font.Color = clGreen Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [] Lines.Strings = ( 'Biorhythm means rhythm of life.' '' 'Our lives are governed by cycles that start at' 'our day of birth.' '' 'The theory has been applied in the past to' 'accident prevention.' '' 'Many companies have studied biorhythms and' 'their effects on airline pilots and athletic teams.' '' 'From the day we are born, we are governed' 'by cycles.' '' 'The 28-day cycle called the emotional or' 'sensitivity cycle governs one'#39's temperament.' '' 'The 33-day cycle, called the intellectual cycle,' 'influences our intellect or thinking capacity.' '' 'The 23-day cycle called the physical cycle' 'governs the condition of one'#39's body.' '' '' 'Those who have investigated the theory seem' 'to agree on the length of these cycles' 'as 28, 33 and 23 days respectively.' '' 'The Emotional Cycle.' '' 'The emotional cycle affects our nervous ' 'systems.' '' 'The plus-period lasts 14 days and is a period' 'of creative ability and moral energy.' 'This is a period where we are full of energy,' 'good for contests, public performances,' 'conducting jobs where teamwork is required.' '' 'The minus-period also lasting 14 days is a' 'period where we lack ambition, tend to be' 'moody and should be careful in our personal' 'relations with others.' '' 'The Intellectual Cycle.' '' 'The intellectual cycle affects our' 'understanding, adaptability, logic,' 'judgement and concentration.' '' 'The plus-period, lasting 16 1/2 days, is the' 'best time for study, planning, examinations' 'and decisions.' '' 'The minus-period, also lasting 16 1/2 days,' 'is a period in which we are apt to be lacking' 'in good judgement.' 'It is a time for gathering data or for jobs' 'that require repetition.' '' 'The Physical Cycle.' '' 'The physical cycle is said to affect our' 'vitality and strength.' '' 'The plus-period lasts 11 1/2 days and these' 'are days of physical vitality, strength and' 'durability.' 'It is a period of self confidence, courage and' 'progressive spirit.' 'Athletes usually find this period best for' 'competitive sports.' '' 'The minus-period also lasts 11 1/2 days and' 'is a period of reduced energy.' 'One tires more easily, is more liable to' 'infectious diseases, medicines seem to work' 'well, according to authorities.' 'This is a period of rejuvenation where our' 'body seems to be recharging.' 'A good period for rest and relaxation.' '' 'Critical Days.' '' 'Critical days are those during which a cycle' 'crosses from plus to minus (or minus to plus).' '' 'The term critical is relative.' 'It is a period of change where our system is' 'in a state of flux.' '' 'Statistical Research.' '' 'Statistical research for over 50 years seems' 'to disclose that during those critical days,' 'especially the physical and emotional ones,' 'we are more accident prone, lacking in' 'coordination, judgement and alertness.' '' 'During an emotionally critical day one is apt' 'to make a slip of the tongue, irresponsible' 'utterances, quarrel or have disputes.' 'An intellectually critical day might cause' 'failure of memory or mistakes.' '') ParentFont = False ScrollBars = ssVertical TabOrder = 0 end end object TTabPage Left = 4 Top = 24 Caption = 'Stop' object Image7: TImage Left = 0 Top = 0 Width = 343 Height = 219 Picture.Data = {} Stretch = True end object Label54: TLabel Left = 165 Top = 120 Width = 147 Height = 42 Caption = 'BioTray...' Font.Color = clBlack Font.Height = -37 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label6: TLabel Left = 68 Top = 26 Width = 224 Height = 33 Caption = 'Click on the button' Font.Color = clAqua Font.Height = -29 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label7: TLabel Left = 50 Top = 68 Width = 198 Height = 33 Caption = 'if you wanna stop' Font.Color = clYellow Font.Height = -29 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label8: TLabel Left = 163 Top = 118 Width = 147 Height = 42 Caption = 'BioTray...' Font.Color = clLime Font.Height = -37 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object BitBtn2: TBitBtn Left = 42 Top = 176 Width = 93 Height = 31 Hint = 'Click here to remove BioTray from memory...' Caption = '&Close' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = BitBtn2Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333033333 33333333373F33333333333330B03333333333337F7F33333333333330F03333 333333337F7FF3333333333330B00333333333337F773FF33333333330F0F003 333333337F7F773F3333333330B0B0B0333333337F7F7F7F3333333300F0F0F0 333333377F73737F33333330B0BFBFB03333337F7F33337F33333330F0FBFBF0 3333337F7333337F33333330BFBFBFB033333373F3333373333333330BFBFB03 33333337FFFFF7FF3333333300000000333333377777777F333333330EEEEEE0 33333337FFFFFF7FF3333333000000000333333777777777F33333330000000B 03333337777777F7F333333300000000033333377777777733330000} NumGlyphs = 2 Spacing = 20 end end object TTabPage Left = 4 Top = 24 Caption = 'Help' object Label10: TLabel Left = 62 Top = -4 Width = 206 Height = 21 Caption = 'The BioTray icons means : ' Font.Color = clBlack Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Image3: TImage Left = 44 Top = 15 Width = 41 Height = 41 Picture.Data = {} end object Image4: TImage Left = 146 Top = 15 Width = 41 Height = 41 Picture.Data = {} end object Image5: TImage Left = 242 Top = 15 Width = 41 Height = 41 Picture.Data = {} end object Label11: TLabel Left = 40 Top = 50 Width = 50 Height = 19 Caption = 'Emotion' Font.Color = clRed Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label12: TLabel Left = 142 Top = 50 Width = 47 Height = 19 Caption = 'Intellect' Font.Color = clYellow Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label13: TLabel Left = 238 Top = 50 Width = 49 Height = 19 Caption = 'Physical' Font.Color = clLime Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label14: TLabel Left = 8 Top = 66 Width = 323 Height = 17 Caption = 'How more tray icon is filled, how bigger is your power.' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label15: TLabel Left = 16 Top = 82 Width = 308 Height = 17 Caption = 'Clicking on one of the tray icons show this windows.' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label16: TLabel Left = 8 Top = 98 Width = 322 Height = 17 Caption = 'If you let your cursor on the tray icon, a hint will come.' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label17: TLabel Left = 50 Top = 114 Width = 236 Height = 17 Caption = 'Put your name and birthdate with Setup.' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label18: TLabel Left = 6 Top = 130 Width = 329 Height = 17 Caption = 'Release BioTray with the Exit button in the Stop pannel.' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label19: TLabel Left = 10 Top = 148 Width = 323 Height = 17 Caption = 'Click on the green button if you want hide this window.' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label57: TLabel Left = 32 Top = 164 Width = 239 Height = 17 Caption = 'Click on the right button to get the menu.' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object BitBtn3: TBitBtn Left = 106 Top = 186 Width = 127 Height = 33 Hint = 'You want more info'#39's, then click here...' Caption = 'About BioTray' Font.Color = clBlack Font.Height = -12 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = BitBtn3Click Glyph.Data = { C6050000424DC605000000000000360400002800000014000000140000000100 0800000000009001000000000000000000000001000000010000000000000000 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA A600FF040400FF080800FF0C0C00FF101000FF141400FF181800FF1C1C00FF20 2000FF242400FF282800FF2C2C00FF303000FF343400FF383800FF3C3C00FF40 4000FF444400FF484800FF4C4C00FF505000FF555500FF595900FF5D5D00FF61 6100FF656500FF696900FF6D6D00FF717100FF757500FF797900FF7D7D00FF81 8100FF858500FF898900FF8D8D00FF919100FF959500FF999900FF9D9D00FFA1 A100FFA5A500FFAAAA00FFAEAE00FFB2B200FFB6B600FFBABA00FFBEBE00FFC2 C200FFC6C600FFCACA00FFCECE00FFD2D200FFD6D600FFDADA00FFDEDE00FFE2 E200FFE6E600FFEAEA00FFEEEE00FFF2F200FFF6F600FFFAFA001C4069002450 8100B63C2800008100000095000000AA000000BE000000CE000000DE000000EE 0000008120000095240000AA280000BE2C0000CE300000DE340000EE380000FF 3C0000812C000095340000AA3C0000BE440000CE480000DE500000EE550000FF 5D00008138000095440000AA4C0000BE550000CE5D0000DE650000EE6D0000FF 7500008144000095500000AA5D0000BE650000CE6D0000DE790000EE810000FF 890000814C0000955D0000AA690000BE750000CE7D0000DE890000EE910000FF 9900008155000095650000AA750000BE810000CE8D0000DE950000EEA10000FF AA0000815D0000956D0000AA7D0000BE8D0000CE990000DEA50000EEB20000FF BA00008165000095790000AA890000BE950000CEA50000DEB20000EEBE0000FF CA0000816D000095810000AA910000BEA10000CEB20000DEBE0000EECA0000FF D600008175000095890000AA990000BEAA0000CEBA0000DECA0000EED60000FF E600008179000095910000AAA10000BEB60000CEC60000DED60000EEE20000FF F200008181000095950000AAAA0000BEBE0000CECE0000DEDE0000EEEE000079 81000091950000A1AA0000B6BE0000C6CE0000D6DE0000E2EE0000F2FF000075 8100008995000099AA0000AABE0000BACE0000CADE0000D6EE0000E6FF00006D 8100008195000091AA0000A1BE0000B2CE0000BEDE0000CAEE0000D6FF002069 8100287995002C8DAA003499BE0038AACE003CB6DE0040C2EE0044CEFF00346D 81003C7D95004491AA004C9DBE0050AECE0059BADE0061CAEE0065D6FF007179 81008591950095A1AA00A5B6BE00B6C6CE00C6D6DE00D2E2EE00DEF2FF008181 810095959500AAAAAA00BEBEBE00CECECE00DEDEDE00EEEEEE00EEEE0000EEE6 0000EEDA0000EACE0000EAC20000E6BA0000E6AE0000E6A10000E2910000E285 0000DE790000DE690000DE590000DA440000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707 07070000FAFA0000FA000000000007070707070700000006FAFA0000FA000006 FA00070707070700000006FA060000FA060000FA0600070707070000000006FA 00000000060000FA060007070707000000000000000000000000000000000707 000000FCFCFCFC000000FCFCFC000000000007000000FB00FCFC0000000000FC 000000FBFB000000FBFBFB00000000FBFBFB000000FBFBFBFB000000FBFBFB00 0000FBFBFBFB0000FBFBFBFBFB00FBFBFBFB000000FBFBFBFB000000FBFBFB00 0000FBFB0000000000FBFBFB0000070000FBFB000007FB0000000000FBFBFB00 000007000000FB0000070000000700FBFBFBFB0000070700F900000000070000 070700FBFBFB000007070700F900000000070007070700000000000007070700 00F9F90000070707070700F9F90000070707070700F9F90007070707070700F9 F90000070707070700F9F9000707070707070000000007070707070700000007 0707070707070000000707070707070700000007070707070707000007070707 07070707070707070707} Style = bsNew end end end object ShadowButton1: TShadowButton Left = 8 Top = 252 Width = 335 Height = 29 Hint = 'Click here if you want to hide this window and only see the tray' + ' icons...' Caption = 'CLICK HERE TO HIDE THIS WINDOW' Font.Color = clWhite Font.Height = -12 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = ShadowButton1Click FaceColor = clGreen end object BitBtn5: TBitBtn Left = 68 Top = 400 Width = 141 Height = 25 Hint = 'Click there to see your prior curve...' Caption = 'Prior Mounth' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = BitBtn5Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333333333333333333333333333333333FF333333333333 3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00 E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0 E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0 E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00 000033333373FF77777733333330003333333333333777333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 end object BitBtn6: TBitBtn Left = 428 Top = 400 Width = 143 Height = 25 Hint = 'Click here to see your next curve...' Caption = 'Next Mounth' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = BitBtn6Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FFF333333333333000333333333 3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0 3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF 0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033 33337777773FF733333333333300033333333333337773333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 end object BitBtn4: TBitBtn Left = 314 Top = 400 Width = 105 Height = 25 Hint = 'Click here to hide this window...' Caption = 'OK' Default = True ModalResult = 1 ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = BitBtn4Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555 555555555555F55555555505555B0555570555F55557F55555F55B50555B0555 7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B 55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00 55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0 BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55 55555555577777555555555705BBB55505555555F5777555F555557B5555055B 505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555 5B5557555557F55557555555555B5555555555555557555555550000} NumGlyphs = 2 Spacing = 15 end object Panel3: TPanel Left = 0 Top = 0 Width = 349 Height = 283 Color = clLime TabOrder = 5 Visible = False object Label45: TLabel Left = 22 Top = 12 Width = 306 Height = 55 Caption = 'Congratulation !' Font.Color = clGreen Font.Height = -48 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label46: TLabel Left = 14 Top = 64 Width = 316 Height = 55 Caption = 'In a few seconds' Font.Color = clRed Font.Height = -48 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label47: TLabel Left = 50 Top = 114 Width = 241 Height = 55 Caption = 'You will use' Font.Color = clRed Font.Height = -48 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label48: TLabel Left = 30 Top = 158 Width = 281 Height = 55 Caption = 'the full version' Font.Color = clRed Font.Height = -48 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label49: TLabel Left = 56 Top = 214 Width = 241 Height = 55 Caption = 'of BioTray...' Font.Color = clRed Font.Height = -48 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end end object BitBtn9: TBitBtn Left = 216 Top = 400 Width = 89 Height = 25 Hint = 'Click here to print your curve...' Caption = 'Print' ParentShowHint = False ShowHint = True TabOrder = 6 Visible = False OnClick = BitBtn9Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} NumGlyphs = 2 end object OK: TBitBtn Left = 312 Top = 400 Width = 109 Height = 25 Hint = 'Click here to come back' Caption = 'OK' ParentShowHint = False ShowHint = True TabOrder = 7 Visible = False OnClick = OKClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555 555555555555F55555555505555B0555570555F55557F55555F55B50555B0555 7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B 55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00 55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0 BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55 55555555577777555555555705BBB55505555555F5777555F555557B5555055B 505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555 5B5557555557F55557555555555B5555555555555557555555550000} NumGlyphs = 2 Spacing = 10 end object BitBtn12: TBitBtn Left = 312 Top = 400 Width = 109 Height = 25 Hint = 'Click here to come back' Caption = 'O.K.' ParentShowHint = False ShowHint = True TabOrder = 8 Visible = False OnClick = BitBtn12Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555 555555555555F55555555505555B0555570555F55557F55555F55B50555B0555 7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B 55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00 55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0 BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55 55555555577777555555555705BBB55505555555F5777555F555557B5555055B 505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555 5B5557555557F55557555555555B5555555555555557555555550000} NumGlyphs = 2 Spacing = 20 end object BitBtn13: TBitBtn Left = 216 Top = 400 Width = 89 Height = 25 Hint = 'Click here to say who to compare' Caption = 'Compare' ParentShowHint = False ShowHint = True TabOrder = 9 Visible = False OnClick = BitBtn13Click Kind = bkAll end object Panel1: TPanel Left = 180 Top = 140 Width = 321 Height = 211 BevelInner = bvLowered BorderStyle = bsSingle Color = 8388863 TabOrder = 10 Visible = False object Label58: TLabel Left = 10 Top = 8 Width = 294 Height = 21 Caption = 'Note here the 2 Biorhythms to compare' Font.Color = clBlack Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [fsUnderline] ParentFont = False end object Label59: TLabel Left = 66 Top = 30 Width = 57 Height = 21 Caption = 'Name 1' Font.Color = clBlack Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label60: TLabel Left = 66 Top = 98 Width = 57 Height = 21 Caption = 'Name 2' Font.Color = clBlack Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label61: TLabel Left = 222 Top = 30 Width = 67 Height = 21 Caption = 'Birthdate' Font.Color = clBlack Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label62: TLabel Left = 222 Top = 102 Width = 67 Height = 21 Caption = 'Birthdate' Font.Color = clBlack Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object MaskEdit3: TMaskEdit Left = 206 Top = 52 Width = 91 Height = 32 Hint = 'Note here the begining of your curve...' EditMask = '!99/99/00;1;_' Font.Color = clBlack Font.Height = -21 Font.Name = 'Arial' Font.Style = [] MaxLength = 8 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 Text = '01/01/01' end object MaskEdit4: TMaskEdit Left = 206 Top = 124 Width = 91 Height = 32 Hint = 'Note here the begining of your curve...' EditMask = '!99/99/00;1;_' Font.Color = clBlack Font.Height = -21 Font.Name = 'Arial' Font.Style = [] MaxLength = 8 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 3 Text = '01/01/01' end object Edit2: TEdit Left = 16 Top = 50 Width = 167 Height = 40 Hint = 'Note here your first name...' Font.Color = clBlack Font.Height = -27 Font.Name = 'Arial' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 Text = 'First Name' OnExit = Edit2Exit end object Edit3: TEdit Left = 16 Top = 118 Width = 167 Height = 40 Hint = 'Note here the second first name...' Font.Color = clBlack Font.Height = -27 Font.Name = 'Arial' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 Text = 'Other' OnExit = Edit3Exit end object BitBtn11: TBitBtn Left = 98 Top = 170 Width = 111 Height = 25 Hint = 'Click here when you are OK' Caption = 'Show US' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = BitBtn11Click Kind = bkAll Spacing = 20 end end object Timer1: TTimer Enabled = False Interval = 5000 OnTimer = Timer1Timer Left = 38 Top = 116 end object BalloonHint1: TBalloonHint BorderColor = clBlack Color = clInfoBk Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxWidth = -4 Behavior = [bbNoShowMouseDown, bbUseRegions, bbHideOnPaint] Position = bpAboveRight ShadowDepth = 8 Shape = bsRoundRect Active = True Left = 108 Top = 105 end object Timer2: TTimer Enabled = False Interval = 500 OnTimer = Timer2Timer Left = 60 Top = 68 end end